home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / datastruct.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  64 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    DataStruct.def
  3.   :Contents.   Globale Datenstrukturen und Konstanten
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9. ----------------------------------------------------------------------*)
  10.  
  11. (* $M-   kein .obj-File *)
  12.  
  13. DEFINITION MODULE DataStruct;
  14. (* Datenstrukturen und globale Konstanten *)
  15.  
  16. FROM Intuition IMPORT ActivationFlagSet, GadgetPtr, strGadget, propGadget,
  17.                       boolGadget;
  18. FROM Gadgets   IMPORT PropTypeSet;
  19.  
  20.  
  21. CONST CHeight = 8;                     (* Höhe eines Zeichens *)
  22.       CWidth  = 8;                     (* Breite eines Zeichens *)
  23.  
  24.       Bord1x = 2;                      (* Abstände des 1. Rahmens vom *)
  25.       Bord1y = 2;                      (* Gadget. *)
  26.       Bord2x = 3;                      (* Abstände des 2. Rahmens vom *)
  27.       Bord2y = 2;                      (* 1. Rahmen. *)
  28.  
  29.       DefaultExt = ".ged";             (* Standard-Extension *)
  30.       MaxGText = 80;                   (* max. Länge eines Gadget-Textes *)
  31.  
  32. TYPE StringAttrType = (Left, Center, Right);  (* Bündigkeit für String-G. *)
  33.      BorderType     = (No,Single,Double);     (* versch. Rahmenarten *)
  34.  
  35.      FileNameType = ARRAY [1..60] OF CHAR;
  36.      GTextType    = ARRAY [1..MaxGText] OF CHAR;
  37.  
  38.  (* Record zur Aufnahme der Gadget-Informationen *)
  39.      GadgDefType = RECORD
  40.                      gPtr          : GadgetPtr;
  41.                      lEdge, tEdge  : INTEGER;
  42.                      width, height : INTEGER;
  43.                      aFlags        : ActivationFlagSet;
  44.                      border        : BorderType;
  45.                      text          : GTextType;
  46.                      fPen, bPen    : INTEGER;
  47.                      xText, yText  : INTEGER;
  48.                      CASE type     : CARDINAL OF
  49.                      |  strGadget:   maxChars   : INTEGER;
  50.                      |  propGadget:  pType      : PropTypeSet;
  51.                                      hSteps     : CARDINAL;
  52.                                      vSteps     : CARDINAL;
  53.                      |  boolGadget:
  54.                      END; (*CASE*)
  55.                    END; (*RECORD*)
  56.  
  57.  (* Record zur Aufnahme der Window-Informationen *)
  58.      WindowDefType = RECORD
  59.                        x,y           : INTEGER;
  60.                        width, height : INTEGER;
  61.                      END; (*RECORD*)
  62.  
  63. END DataStruct.
  64.